home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d7
/
itqwk07m.arc
/
ITQWK07.SCR
next >
Wrap
Text File
|
1990-05-17
|
9KB
|
284 lines
; ********** DEV07.SCR **********
;
; 05-17-90
;
; Typo gremlins had been at work in DEV06.SCR. Caught two.
;
; Modified some Colorbg/Colorfg parameters.
;
; Added code to create QWKNUM.DAT in QMODEM default directory on
; first run of script. (I know a good idea when I hear one, Dan)
;
; 05-14-90
;
; Logic limiting qwknum.dat to range from 02 - 98 was broken. Fixed in
; DEV06.SCR
;
; 05-13-90
; The Ivory Tower (203)649-5611, LEADERS Directory posting
;
; Development release of QMODEM 4.x script for use with Qmail 3.0
; on PCBoard BBSs running ProLogon/ProDoor by users of either
; EZ-RDR or Qmail Deluxe Reader.
;
; EZ-RDR/QMODEM users: I've written the following script so that
; it should be useable with either the EZ-RDR or the Qmail Deluxe
; packet masks. Though I am a registered user of EZ-RDR I also
; received Qmail Deluxe Reader when I registered Qmail 3.0 and plan
; to use it. But - lots of respectable folks prefer EZ-RDR to the
; either Deluxe or the shareware Qmail Reader so this script is for
; all. There will be more detailed documentation for this script
; when it's eventually posted on boards other than the Tower but
; for now "... your mission if you should decide to accept it" is to
; install this QMODEM 4.x script with a minimum of written guidance
; and give it a spin. I'd appreciate hearing about any problems
; you encounter in installing or using it. I've addressed this to
; EZ-RDR users because I can test the script with Qmail Deluxe myself.
;
; This script will read from a file named QWKNUM.DAT that will be
; created in the directory you identify as your QMODEM default
; directory (where QMODEM.EXE is located). The two place numeral
; in QWKNUM.DAT will be used in the sequential renaming of packets
; of mail downloaded from Qmail 3.0.
;
; EZ-RDR uses the packet mask *.QWK (and will choke if the files in
; your EZ-RDR DL directory do not all have a QWK extension). Qmail
; Deluxe uses the packet mask *.Q* and will happily read files named
; such things as IVORY.QWK, IVORY.QW0, or IVORY.Q10; in fact, Qmail
; 3.0 itself assigns the extensions QWK, QW0, QW1, QW2, and so on
; to each packet that is DLed in a single session. So, unless the
; extension is massaged into the form QWK, one or the other of these
; Readers is going to be unhappy some of the time. This script does
; that; when all the dust has settled all of the packets in the
; Reader DL directory have the extension QWK.
;
; This script will read the QWKNUM.DAT file and assign the numeral
; it contains to the filename of the packet - in the form of IVORY10.QWK,
; for example. That way, both readers will be happy. It will also change
; the numeral found in the QWKNUM.DAT file each time a packet is DLed so
; that successive packets will be named (say) IVORY10.QWK, IVORY11.QWK,
; IVORY12.QWK and so on up to IVORY99.QWK (at which time the series will
; start all over again with IVORY02.QWK (the numerals 1 thru 9 are changed
; by the script to the form 01, 02, 03, 04 etc. so that when sorted and
; listed on the menu of the Reader they will be arranged in order according
; to the ASCII value of the filename (oldest to newest).
;
; Lastly, this script will copy the DLed packet from the QMODEM DL
; directory to the Reader DL directory and then delete the packet
; from the former directory. It will also check for *.REP (reply)
; files in the directory to which the Reader has written them, UL
; the replies if any are found, and then delete the replies after
; they have been ULed.
;
; After a packet has been DLed, a Menu of Choices will be displayed from
; which the user may select (A) Exit to the BBS, (B) Get More Mail, or
; (C) Hangup. If a second packet of mail is DLed, its filename too will
; have a numeral inserted so that unless more than 99 mail packets are
; allowed to accumulate in the Reader DL directory, all filenames will
; be unique and so will not be overwritten by later mail packets.
;
;
; Qwick (and brief) installation instructions follow:
; 1. Set QMODEM in AutoZ mode in Alt-N (as written this script uses Zmodem
; to take advantage of the QMODEM 4.x feature allowing a Zmodem transfer
; to begin immediately if there is a external batch call to dsz.com by
; the letter Z and the Zmodem "start header" is received)
; 2. Adjust the string and path specifications to suit the directory
; names and paths on your own system.
; 3. Call a PCBoard BBS running ProLogon/ProDoor (if your favorite BBS
; uses only PCBoard you may have to adjust the prompts in this version
; of the script but those that are unique to PCBoard on the Tower have
; been inserted in the present script.
; 4. You must configure the Qmail Conferences and Options you wish to
; use and may then call back using this script to DL the mail in those
; Conferences.
; 5. Let me know what happens.
;
;
; Qmail Deluxe/Ez-Rdr/ProLogon/ProDoor/Qmodem QMODEM script
;
Graphics ANSI
TurnON 8_BIT
TurnOFF LINEFEED
TurnOFF XON/XOFF
TurnON NOISE
TurnOFF MUSIC
TurnON SCROLL
TurnOFF PRINT
TurnOFF ECHO
TurnOFF SPLIT
TurnOFF BS_DEL
String BBSID DLPATH QMDIR QWKPATH QWKDAT WILD STEM TAIL
ASSIGN BBSID IVORY.Q
ASSIGN DLPATH D:\ ;QMODEM DL path (terminal \ required)
ASSIGN QMDIR C:\QMODM\ ;QMODEM default directory
ASSIGN QWKPATH D:\DX11\QWK\ ;Qmail/Ez-Rdr DL path with terminal \
ASSIGN QWKDAT QWKNUM.DAT ;Enumeration file for packet renaming
ASSIGN STEM IVORY ;BBS ID code used by Qmail
ASSIGN WILD * ;DOS wildcard
ASSIGN TAIL .QWK ;the extension (with prepended .) needed
TimeOut 240 ; Set Waitfor for 30 seconds
Waitfor "graphics: (Enter)=no?"
Delay 100
Send "y q Karl Hakmiller $password NS^M" ;COLOR, ProDoor login
;Send "y q Karl Hakmiller $password 3 NS^M" ;COLOR, PCBoard login
;Send "n q Karl Hakmiller $password NS^M" ;MONO, ProDoor login
;Send "n q Karl Hakmiller $password 3 NS^M" ;MONO, PCBoard login
When
When "Press (Enter) to continue" "^M"
When "(0) Command?" "OPEN 3^M" ;ProDoor logins
START:
Waitfor "Qmail Command?"
Delay 100
Send "d^M"
Waitfor "Download this packet (Y or N)?"
Delay 100
Send "y^M"
SETNUM:
EXIST $QMDIR$QWKDAT OPEN1
Openfile QWKNUM.DAT Rewrite ;creates the file QWKNUM.DAT if doesn't exist
Assign 1 1
Writefile 1 1 ;writes the numeral 1 to the QWKNUM.DAT file
Closefile
OPEN1:
Openfile QWKNUM.DAT Read
Readfile 1 ;reads QWKNUM.DAT content as integer value
Incr 1 ;adds 1 to qwknum numeral in QWKNUM.DAT
Assign 0 $1 ;creates string variable equal to integer read
If "$0" >= "99" RESETIT ;tests for limit of qwknum numeral
If "$0" <= "9" PADIT ;tests for size of qwknum numeral
Closefile
Goto OPEN2
RESETIT:
Closefile
Openfile QWKNUM.DAT Rewrite
Assign 0 1 ;resets $0 (99) to 1
Writefile 1 ;writes 1 to QWKNUM.DAT
Closefile
Goto OPEN1
PADIT: ;pads qwknum numerals < 10 with right 0
Closefile
Openfile QWKNUM.DAT Rewrite
Assign 2 0
Assign 1 "$2$1" ;resets $1 (n < 10) to 0n)
Writefile $1 ;writes 0n to QWKNUM.DAT
Closefile
Goto WORKING1
OPEN2:
Closefile
Openfile QWKNUM.DAT Rewrite
Writefile $1
Closefile
WORKING1:
When
Waitfor "*"
Downld Z $BBSID$WILD
LoadFON C:\QMODM\QMODEM.FON
DOS "RENAME $DLPATH$BBSID$WILD $STEM$1$TAIL ;renames packet
DOS "COPY $DLPATH$STEM$1$TAIL $QWKPATH$STEM$1$TAIL" ;copies renamed packet
DOS "DEL $DLPATH$STEM$1$TAIL" ;deletes original packet
CHEKREP:
EXIST D:\DX11\REP\IVORY.REP UPREP ;filespec of replies file
Goto Menu ;if no reply file skip UPREP
UPREP:
Send "^M"
Waitfor "Qmail Command?"
Delay 100
Send "u^M"
Delay 100
Upload Z D:\DX11\REP\IVORY.REP ;Uploads replies with Zmodem
LoadFON C:\QMODM\QMODEM.FON
DOS "DEL D:\DX11\REP\IVORY.REP" ;deletes replies once uploaded
MENU:
Send "^M"
Waitfor "Qmail Command?"
Pause 500
Getscr
Clrscr
Colorbg 0
Colorfg 0
Box 1 1 80 24
Colorbg 1
Colorfg 14
Box 17 2 57 9
Clrscr
Displayln " Make A Choice (A,B,C): "
Displayln " (A) Quit To BBS "
Displayln " (B) Get More Mail "
Displayln " (C) Hangup "
Display " ? "
Colorbg 0
Colorfg 3
CHOICE:
INKEY 8
If "$8" = "a" bbs
If "$8" = "b" more
If "$8" = "c" getout
If "$8" < "a" menu
If "$8" > "c" menu
BBS:
Clrscr
Colorbg 0
Colorfg 15
Box 1 1 80 24
Send "^M"
Waitfor "Command?"
Send "Q^M"
Exit
MORE:
Clrscr
Colorbg 0
Colorfg 15
Box 1 1 80 24
Send "^M"
Delay 100
Goto START
GETOUT:
Colorbg 0
Colorfg 0
Box 1 1 80 24
Send "^M"
Clrscr
Putscr
Send "G^M"
Delay 100
Colorbg 0
Colorfg 0
Box 1 1 80 24
Hangup
Waitfor "OK"
Clrscr
ATwrite 15 13 15 "QMAIL transferred from $STEM at $TIME on $DATE"
Delay 3000
Colorbg 0
Colorfg 15
Box 1 1 80 24
Clrscr
Exit